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OS/8 FORMAT 


DECUS fYogram Library Write-up 


DECUS NO. 8-641 


1. Descritlon: 


FORMAT is supplied as a PAL-8 source tape for easy 
modification to conform to the user's system, it is written 
for a system with no line printer and uses the device name LPT 
and device code 4. Designed for Model 33 and 38 Teletypes* 
with 8 1/2 friction feed options, it can be modified for other 
terminals, its tables are set for pal- 8 listings and general 
PIP dumDS of ASC II files. 

FORMAT offers the following controls: 

1. Individually set tabulation positions. 

2. Pagination of output. A switch register option permits 

inserting a halt between pages for paper changes, etc. 

3. Right margin limit to suppress pile-up and Model 38 auto¬ 

matic carriage returns. 

4. Left margin control as a switch register option. 

5. Vertical tabulation, a set number of lines advance. 

6. Model 38 ribbon change commands do not alter tabulation. 

2. Pagination: 


On receipt of a 214 code or after a specified number 
of lines of text, FORMAT outputs a page. With SWR(0)=l, 
a set number of line feeds are output, a cut-line dash, and 
another set number of line feeds are output. If SWR(0)=0, 
a console halt occurs for a paper change. Pressing continue 
causes only a carriage return at the head of the next page. 
(No head or tail line feeds are output in this case.) 

Following pagination, FORMAT ignores line feeds, 
carriage returns, vertical tabs, and form feeds until the 
next spacing character is recieved. This feature is designed 
to over-ride the pagination of programs supplying line feeds. 
The handler was originally written to overcome conflicts in 
pagination between PAL-8 and CREF under OS-8 Version 1. 

The pagination algorithm is disrupted by cut lines output by 
the calling program. (PAL-8 does not output these to LPT.) 

FORMAT will correctly list and paginate ASC II files 
when called by pip in I mode transfers. 

♦Teletype is a registered trademark of Teletype Corporation. 
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FORMAT Is preset for 5 line feeds at the head of the 
page, 57 lines of text, and 5 lines at the foot. The 57 lines 
of text are required for proper output of the PAL-8 symbol 
table. The head and foot are set for a page that can be trimmed 
to ll 1/2 inches. 

3. Right Margins 


When L characters are desired In a line, -L Is loaded 
In TABSET and L in MTABST, locations 30 and 31 of 

page 2 of the handler. All characters after the Lth are discarded. 
MTABST is used for testing for the first printed character on the 
page. FORMAT Is preset for 71 characters per line to suppress the 
automatic carriage return on the Model 38. This glues about a 
5/8th Inch minimum margin. 

A. Left Margin: 


If SWR(li) is set to zero, the normal left margin is 
retained, if it is set to l, the left margin Is indented to the 
first tab position. FORMAT has the first tab set for column A to 
produce a 1 1/8 inch left margin using SWR<ll)=l. (Note that 
when SWP.(11) = l, the contents of TABl are copied into MTABST to 
control the pagination. Thus, if SWR(ll) is set to 1 and then 
returned to zero, the pagination routine will not operate 
predictably. 

5. Horizontal Tabulation: 


Horizontal tabulation is table driven. The table 
contains 20 entries but the last must be zero to terminate the 
table. For a tab position at column C, L-C is inserted in the 
table. Format is preset for a first tab at column A for margin 
control and additional positions at 8 column intervals. 

6. Vertical Tabulation: 


The 213 code is interpreted as a request to output a 
specific number of line feeds (no carriage return). The number 
number preset at VERTAB is 3. 

7. Table Modification: 


Entries in the format table can be changed at 
assembly time, at insertion using the BUILD ALTER command, 
between runs using ODT or EPIC, or at run time by setting SWR(0)=0 
In the last case, the computer will halt when the handler is first 
called. The tables are at the start of the page in which the 
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?niL?™ Ur v!\ If computer ls set to local address 140, three 

i c + °rf, b ® fore the halt » and continue pressed, the switch reg- 

output!' 111 be rechecked ’ and if desired, a cut line and head space 


No details on using ODT or EPIC are 
Installation directors may forbid altering 
head area. 


Included as some 
code In the system 


8. Compressing PAL-8 Listings: 


PAL-8 listing files can be reduced by 30 to 40% if 
the conversion of tabs to spaces Is suppressed This can 
be accomplished by patching location 1366 to be 1136 and 
2422 to be 7000. Output Is acceptable to CREF. The output 

can then be listed using format with the tabulation tables 
adjusted. 

9. format on Systems with a Line Printer: 

When using FORMAT on a system with a line printer, 
the device name and number should be changed. Since FORMAT 
is not file structured the entry need not be changed. 

The listing shows how the change should be made. The x's 
represent the user's choice of name and the n's his choice 
of device number. 

The listing also shows a minimal patch for use with 
form-feed type terminals. 
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DECUS 8-641 
OS/8 FORMAT 

Erratum 


The listing and source tape 
far DECUS 8-641 OS/8 FORMAT 
contain an error in the 
tabulation table. The fifth 
tabulation position at loc¬ 
ation 404 should be 43. it 
may be corrected before 
assembly using EBIT or at 
load time using BUILD. 


f S&S,tVi"*' t S’ i'< i4 r u, l,: 
,f Uv ft- 4'i 
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/FORMAT, TTY REPLC. LPT 


PAL6-V7 


/FORMAT, TTY REPLC. LPT 


00 000 
0000 1 
00002 
000 03 
00004 
00005 
0 00 06 
00007 


0000 *o 

7777 -l 

1424 DEVICE LTTYJ DEVICE LPT; 104 


2431 
1420 
2400 
1 040 
400 1 
0000 

/or DEVICE 


ltty; device xxx; 



0200 

0 0200 

7400 

0020 1 

0 000 

00202 

7600 

00203 

6214 

00204 

1262 

00205 

3251 

00206 

1601 

00207 

7700 

00210 

5246 

0021 1 

2303 

00212 

5230 

00213 

4214 

00214 

0000 

00215 

1214 

00216 

1313 

00217 

3214 

00220 

1214 

00221 

1377 

00222 

4614 

00223 

7325 

00224 

1214 

00225 

3214 

00226 

1243 

00227 

4313 


*200 

P7400, 7400 

ENTRY, 0 
P7600, 7600 

RDF 
TAD 
DCA 
TAD 

P7700, SMA 
JMP 
I SZ 
JMP 

COUNT, JMS 
ADDR, 0 

CORE, TAD 
HOLD1, TAD 
CHAR, DCA 
TABCNT, TAD 
ADDR2, TAD 

JMS I 

STP3 

TAD 

DCA 

TAD 

JMS 


/CLA 

PCDIF 
XITFLD 
I ENTRY 
CLA 

EXIT 
TYPE1 
NOINIT 
.+ 1 

.-1 
TYPE2 
ADDR 
ADDR 

(TRETN-INIT 
ADDR 

ADDR 
ADDR 
DFIELD 
TYPE2 


5/23/73 PAGE 1 


; 4001; ZBLOCK 2 


lnnO; 4001; ZBLOCK 2 
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/FORMAT, TTY REPLC 


LPT 


PAL8-V7 


5/23/73 


PAGE 2 


00230 

1601 

NOINIT, TAD I 

ENTRY 

00231 

0376 

AND 

<70 

00232 

1375 

TAD 

< CDF 

00233 

3243 

DCA 

DFIELD 

00234 

1601 

TAD I 

ENTRY 

00235 

0374 

AND 

<3700 

00236 

7040 

CMA 


00237 

3213 

DCA 

COUNT 

00240 

2201 

ISZ 

ENTRY 

00241 

1601 

TAD I 

ENTRY 

00242 

3215 

DCA 

CORE 

00243 

0214 

DFIELD, 214 


0 0244 

2213 

CNTIT, ISZ 

COUNT 

00245 

5253 

JMP 

WRITE 

00246 

2201 

exit, isz 

ENTRY 

00247 

2201 

I sz 

ENTRY 

00250 

2201 

I sz 

ENTRY 

00251 

7402 

XITFLD, HLT 


00252 

5601 

JMP I 

ENTRY 

00253 

6031 

WRITE, KSF 


00254 

5271 

JMP 

WRITE2 

00255 

1307 

TAD 

P20 0 

00256 

6034 

KRS 


00257 

1373 

TAD 

<-203 

00260 

7440 

SZA 


00261 

5264 

JMP 

. + 3 

00262 

6203 

PCDIF, CDF ClF 

0 

00263 

5602 

JMP I 

P7600 

00264 

1372 

TAD 

<-14 

00265 

7640 

SZA CLA 


00266 

5271 

JMP 

. + 3 

00267 

6032 

KCC 


00270 

5246 

JMP 

EXIT 

00271 

4303 

WRITE2, JMS 

TYPE 1 

00272 

3216 

DCA 

HOLD1 

00273 

4303 

JMS 

TYPE1 

00274 

7112 

CLL RTR 


00275 

70 12 

RTR 


00276 

1216 

TAD 

HOLD1 

00277 

70 12 

RTR 


00300 

7012 

RTR 


0030 1 

4313 

JMS 

TYPE2 

00302 

5244 

JMP 

CNTIT 
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/FORMAT, TTY REPLC. LPT 


PAL8-V7 


5/23/73 


PAGE 3 


/TYPE ROUTINES 


00303 

7777 

TYPE 1, 

- 1 


00304 

1615 


TAD I 

CORE 

00305 

4313 


JMS 

TYPE2 

00306 

1615 


TAD I 

CORE 

00307 

0200 

P200 , 

AND 

P7400 

0031 0 

2215 


I SZ 

CORE 

0031 1 

7000 


NOP 


00312 

5703 


JMP I 

TYPE1 

00313 

0351 

TYPE2, 

INIT- 

ADDR 

00314 

0371 


AND 

(377 

003 1 5 

3217 


DCA 

CHAR 

00316 

1217 


TAD 

CHAR 

00317 

137 0 


TAD 

(-233 

00320 

7450 


SNA 


00321 

5341 


JMP 

ESC 

0 0 322 

700 1 


I AC 


00323 

7450 


SNA 


00324 

5246 


JMP 

EXIT 

00325 

1367 


TAD 

(14 

00326 

7100 


CLL 


00327 

1366 


TAD 

(5 

00330 

7420 


SNL 


00331 

5344 


JMP 

REG 

00332 

1214 


TAD 

ADDR 

00333 

3221 


DCA 

ADDR2 

00334 

1220 


TAD 

TABCNT 

00335 

5621 


JMP I 

ADDR2 

00336 

7440 

TRETN, 

SZA 


00337 

3220 


DCA 

TABCNT 

00340 

5713 


JMP I 

TYPE2 
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PAL8-V7 5/23/73 


PAGE A 


/FORMAT, TTY 

REPLC. 

LPT 


00341 

7240 

ESC, 

STA 


00342 

1220 


TAD 


00343 

3220 


DCA 


00344 

1365 

REG, 

TAD 


00345 

0364 


AND 


00346 

7650 


SNA 

CLA 

00347 

5355 


JMP 


00350 

2220 


I SZ 


00351 

5355 


JMP 


00352 

7240 


STA 


00353 

3220 


DCA 


00354 

5713 


JMP 

I 

00355 

1217 


TAD 


00356 

6046 


TLS 


00357 

604 1 


TSF 


00360 

5357 


JMP 


00361 

7200 


CLA 


00362 

5713 


JMP 

I 

00364 

0 140 




00365 

0212 




00366 

0 005 




00367 

00 14 




00370 

7545 




0037 1 

0377 




00372 

7764 




00373 

7575 




00374 

3700 




00375 

6201 




00376 

0070 




00377 

7551 





0400 

PAGE 




TABCNT 

TABCNT 

(212 

(140 

• + 6 

TABCNT 

.+4 


TABCNT 

TYPE2 

CHAP 


1 

TYPE2 


/SUPPRESS TAB OF RIBBON CHNG 
/DON'T INCPEMENT TAB FOR RO 
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/FORMAT, TTY REPLC. LFT 


PAL8-V7 5/23/73 


PAGE 5 


0 040 0 

0103 

/FORMAT TABLES 

TAB 1, 103 


0040 1 

0073 

73 


00402 

0063 

63 


00403 

0053 

53 


00404 

0003 

3 


0 0405 

0033 

33 


00406 

0023 

23 


00407 

0013 

1 3 


0041 0 

0000 

0 


0041 1 

00 0 0 

ZBLOCK 

13 

00424 

7775 

VERTAB, -3 


00425 

7707 

LINSET, -71 

/NEGATIVE OF TEXT LINES PER 

00426 

7773 

HEAD, -5 

/NEGATIVE OF LINES AT HEAD 

00427 

7773 

TAIL, -5 

/NEGATIVE OF LINE AT FOOT 

00430 

7671 

TABSET, -107 

/POSITIONS TO RIGHT MARGIN 

00431 

0107 

MTABST, 107 

/PAGE SUPPRESSION SET, MUST 

00432 

0 00 1 

FORMFG, 1 

/MUST BE NEGATIVE OF TABSET 
/SUPPRESS FEED ADVANCE FLAG 

00433 

0000 

LINCNT, 0 

/NEGATIVE OF LINES LEFT 

00434 

1200 

/TABULATE 

TAD 

TAB 1 

00435 

3231 

DCA 

MTABST 

00436 

1230 

TAD 

TABSET 

00437 

3367 

TAB, DCA 

TABCT2 

00440 

1200 

TAD 

TAB 1 

00441 

7440 

SZA 


00442 

5245 

JMP 

. + 3 

00443 

7040 

CMA 


00444 

5766 

JMP I 

RETURN 

00445 

1367 

TAD 

TABCT2 

0 0446 

7510 

SPA 


00447 

5253 

JMP 

. + 4 

00450 

2240 

I SZ 

TAB+ 1 

00451 

7200 

CLA 


00452 

5240 

JMP 

TAB+ 1 

00453 

3365 

DCA 

INIT 

00454 

1275 

TAD 

SPACE 

00455 

4263 

JMS 

type 

00456 

2367 

I SZ 

TABCT2 

00457 

2365 

ISZ 

INIT 

00460 

5254 

JMP 

.-4 

00461 

1367 

TAD 

TABCT2 

00462 

5766 

JMP I 

RETURN 


PAGE 


BE 
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/FORMAT, TTY REPLC 


LPT 


PAL8-V7 


5/23/73 PAGE 6 


00463 

00464 

00465 

00466 

00467 

00470 


00471 

00472 

00473 

00474 

00475 

00476 

00477 


00500 

0050 1 

00502 

00503 

00504 

00505 

00506 

00507 

0051 0 

0051 1 

00512 

0051 3 

00514 

00515 


00516 

00517 

00520 

00521 

00522 

00523 

00524 

00525 

00526 

00527 

00530 



/TYPE 

ROUTINE 


00 00 

TYPE, 

0 


6046 


TLS 


6041 


TSF 


5265 


JMP 

.-1 

7200 


CLA 


5663 


JMP I 

TYPE 


/TEST 

FOR START OF PAGE, SUPPRESS FORMS AND LF 

0000 

TSTPAG 

, 0 


1231 


TAD 

MTABST 

7450 


SNA 


1232 


TAD 

FORMFG 

7640 

SPACE, 

SZA CLA 

5671 


JMP I 

TSTPAG /PAGE STARTED 

5766 


JMP I 

RETURN /NO CHARACTERS YET THIS 


/PROCESS CARRIAGE RETURN 

427 1 

CR, 

JMS 

TSTPAG 

2232 


I SZ 

FORMFG 

1 377 


TAD 

(215 

4263 


JMS 

TYPE 

7240 


STA 


4263 


JMS 

TYPE 

1376 


TAD 

(TAD TAB 1 

3240 


DCA 

TAB+ 1 

7604 


LAS 


7010 


RAR 


7630 


SZL CLA 


5234 


JMP 

TAB-3 /SWR(11)=1 => TAB FIRST 

1230 


TAD 

TABSET 

5766 


JMP I 

RETURN 


/OUTPUT 

SEQUECR 

OF LINE FEEDS 

000 0 

NLF, 

0 


3365 


DCA 

INIT 

1325 


TAD 

P212 

4263 


JMS 

TYPE 

7240 


STA 


4263 


JMS 

TYPE 

2233 


I SZ 

LINCNT 

0212 

P212, 

212 


2365 


I SZ 

INIT 

5320 


JMP 

NLF+2 

5716 


JMP I 

NLF 


9 





/FORMAT, TTY REPLC. LPT PAL8-V7 5/23/73 PAGE 7 


/OUTPUT A LINE FEED 


00531 

4271 

LF, 

JMS 

TSTPAG 



00532 

7240 


STA 




00533 

4316 


JMS 

NLF 



0 0 534 

1233 


TAD 

LINCNT 



00535 

7710 


SPA 

CLA 



00536 

5766 


JMP 

I RETURN 





/OUTPUT 

A FORM FEED, ASLO CONTINUE LF 


00537 

4271 

FORM, 

JMS 

TSTPAG 



00540 

7604 


LAS 




00541 

7710 


SPA 

CLA 



00542 

5347 


JMP 

. + 5 



00543 

7402 


HLT 




0 0 544 

7240 


STA 


/CLEAR KEYBOARD TRANSIENTS 

00545 

4263 


JMS 

TYPE 



00546 

5356 


JMP 

.+ 1 0 



00547 

1233 


TAD 

LINCNT 



00550 

1227 


TAD 

TAIL 



00551 

4316 


JMS 

NLF 

/CLA FOR FORM 

FEEDS 

00552 

1375 


TAD 

( 

/(214 FOR FORM 

FEEDS 

00553 

4263 


JMS 

TYPE 



00554 

1226 


TAD 

HEAD 



00555 

4316 


JMS 

NLF 

/optnl CLA FOR 

FORM FEEDS 

00556 

1225 


TAD 

LINSET 



00557 

3233 


DCA 

LINCNT 



00560 

3232 


DCA 

FORMFG 



0056 1 

5302 


JMP 

CR+2 





/OUTPUT 

VERTICLE TAB 



00562 

4271 

VTAB, 

JMS 

TSTPAG 



00563 

1224 


TAD 

VERTAB 



00564 

5333 


JMP 

LF+2 



00565 

0 0 0 0 

INIT, 

0 




00566 

3366 

RETURN, 

DCA 




00567 

5765 

TABCT2, 

JMP 

I INIT 



00570 

5237 


JMP 

TAB 



00571 

5331 


JMP 

LF 



00572 

5362 


JMP 

VTAB 



00573 

5337 


JMP 

FORM 



00574 

5300 


JMP 

CR 
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/FORMAT, TTY REPLC. LPT 


PAL8-V7 5/23/73 PAGE 8 



7344 

STM2=7344 


7346 

STM3=7346 


7305 

STP2=7305 


7325 

STP3=7325 


7307 

STP4=7307 


7327 

STP6 = 7 327 


7332 

ST2K=7332 


7330 

ST4K=7330 


7333 

ST6K=7333 

00575 

0255 


00576 

1200 


00577 

0215 



£ 
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/FORMAT, TTY REPLC. LPT 


PAL8-V7 


S/22/13 


PAGE 8-1 


ADDR 

02 1 A 

ADDR2 

0221 

CHAR 

0217 

CNTIT 

0244 

CORE 

0215 

COUNT 

0213 

CR 

0500 

DFIELD 

0243 

ENTRY 

020 1 

ESC 

0341 

EXIT 

0246 

FORM 

0537 

FORMFG 

0432 

HEAD 

0426 

HOLD1 

0216 

INIT 

0565 

LF 

0531 

LINCNT 

0433 

LINSET 

0425 

MTABST 

0431 

NLF 

0516 

NOINIT 

0230 

PCDIF 

0262 

P20 0 

0307 


P212 

0525 

P740 0 

0200 

P7600 

0202 

P7700 

0207 

REG 

0 344 

RETURN 

0566 

SPACE 

0475 

STM2 

7344 

STM 3 

7346 

STP2 

7305 

STP3 

7325 

STP4 

7307 

STP6 

7327 

ST2K 

7332 

ST4K 

7330 

ST6K 

7333 

TAB 

0437 

TABCNT 

0220 

TABCT2 

0567 

TABSET 

0430 

TAB1 

0400 

TAIL 

0427 

TRETN 

0336 

TSTPAG 

0471 

TYPE 

0463 

TYPE 1 

0303 

TYPE2 

0313 

VERTAB 

0424 

VTAB 

0562 

WRITE 

0253 

VRITE2 

0271 


XITFLD 0251 
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